inherited dtmcw_MidProductStockMoney: Tdtmcw_MidProductStockMoney
  OldCreateOrder = True
  Left = 405
  Top = 332
  Height = 414
  Width = 659
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from V_cw_MidProductStockMoney where 0=0'
    object adsMasterDeptID: TStringField
      DisplayLabel = #20998#24215'ID'
      FieldName = 'DeptID'
    end
    object adsMasterStockID: TStringField
      DisplayLabel = #20179#24211'ID'
      FieldName = 'StockID'
    end
    object adsMasterStockCode: TStringField
      DisplayLabel = #20179#24211#32534#30721
      FieldName = 'StockCode'
    end
    object adsMasterStockName: TStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'StockName'
    end
    object adsMasterProductID: TStringField
      DisplayLabel = #20135#21697'ID'
      FieldName = 'ProductID'
    end
    object adsMasterProductCode: TStringField
      DisplayLabel = #20135#21697#32534#30721
      FieldName = 'ProductCode'
    end
    object adsMasterProductName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'ProductName'
      Size = 50
    end
    object adsMasterSupplyID: TStringField
      DisplayLabel = #20379#24212#21830'ID'
      FieldName = 'SupplyID'
    end
    object adsMasterSupplyCode: TStringField
      DisplayLabel = #20379#24212#21830#32534#30721
      FieldName = 'SupplyCode'
    end
    object adsMasterSupplyShortName: TStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'SupplyShortName'
    end
    object adsMasterSupplySpecs: TStringField
      DisplayLabel = #20379#24212#21830#22411#21495
      FieldName = 'SupplySpecs'
    end
    object adsMasterColorCode: TStringField
      DisplayLabel = #33394#21495
      FieldName = 'ColorCode'
    end
    object adsMasterColorName: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'ColorName'
      Size = 30
    end
    object adsMasterFlowerHeight: TFloatField
      DisplayLabel = #33457#39640
      FieldName = 'FlowerHeight'
    end
    object adsMasterFlowerWidth: TFloatField
      DisplayLabel = #33457#23485
      FieldName = 'FlowerWidth'
    end
    object adsMasterFlowerBreadth: TFloatField
      DisplayLabel = #24133#23485
      FieldName = 'FlowerBreadth'
    end
    object adsMasterFlowerGram: TFloatField
      DisplayLabel = #20811#37325
      FieldName = 'FlowerGram'
    end
    object adsMasterPieceCount: TIntegerField
      DisplayLabel = #23384#36135'|'#21305#25968
      FieldName = 'PieceCount'
    end
    object adsMasterNumber: TFloatField
      DisplayLabel = #23384#36135'|'#21512#35745#25968#37327
      FieldName = 'Number'
    end
    object adsMasterUnitName: TStringField
      DisplayLabel = #23384#36135'|'#21333#20301
      FieldName = 'UnitName'
      Size = 10
    end
    object adsMasterChgProStockNumber: TFloatField
      DisplayLabel = #36741#21161'|'#25968#37327
      FieldName = 'ChgProStockNumber'
      ReadOnly = True
    end
    object adsMasterChgProStockUnitName: TStringField
      DisplayLabel = #36741#21161'|'#21333#20301
      FieldName = 'ChgProStockUnitName'
      Size = 10
    end
    object adsMasterMoney: TFloatField
      DisplayLabel = #23384#36135'|'#37329#39069
      FieldName = 'Money'
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 176
    Top = 104
  end
  object adsStock: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'Select StockID, StockCode, StockName from V_da_Stock'#13#10'where isnu' +
      'll(StockType,0)=1 and DeptID=:DeptID'
    Parameters = <
      item
        Name = 'DeptID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 176
    Top = 40
  end
end
